home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
cuj1008.zip
/
RYAN2.LIS
< prev
next >
Wrap
File List
|
1992-04-08
|
396b
|
28 lines
-----------------------------------------------------------------
LISTING II
INKEY FUNCTION FOR USE WITH SCO XENIX
char inkey(chan)
{int chan
int i;
char ch;
if (rdchk(chan) > 0)
{
i=read(chan, &ch, 1);
ch = ch & 0xff;
}
else
return (0);
return (ch);
}